Cluster: 0

Table

celltype <- "0"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data", show_split = F)
}

Cluster: 1

Table

celltype <- "1"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}

Cluster: 2

Table

celltype <- "2"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}

Cluster: 3

Table

celltype <- "3"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}

Cluster: 4

Table

celltype <- "4"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}

Cluster: 5

Table

celltype <- "5"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}

Cluster: 6

Table

celltype <- "6"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}

Cluster: 7

Table

celltype <- "7"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}

Cluster: 8

Table

celltype <- "8"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}

Cluster: 9

Table

celltype <- "9"
markers <- markers.all[[celltype]]
get_antibody(markers, org = "mosue", rm.noab = F)

Ridge

for (i in 1:6) {
  plot_ridge(scrna, id = celltype, genes = markers[i,]$gene, 
           aggr.other = FALSE, ncol = 3, assay = "RNA", slot = "data")
}